home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1998 August: Tool Chest / Dev.CD Aug 98 TC.toast / Sample Code / Interapplication Communication / MenuScripter 4.0 / Sources / MSAERecording.c < prev    next >
Encoding:
Text File  |  1996-07-09  |  30.9 KB  |  1,236 lines  |  [TEXT/CWIE]
  1. // MSAERecording.c
  2. //
  3. // Original version by Jon Lansdell and Nigel Humphreys.
  4. // 4.0 and 3.1 updates by Greg Sutton.
  5. // ©Apple Computer Inc 1996, all rights reserved.
  6.  
  7. /*
  8.     Changes for 3.1
  9.  
  10.     14-Nov-95 : GS : Disposed of style handle correctly in BuildStyledTextDesc().
  11.     14-Nov-95 : GS : Disposed of text object specifier in IssueSizeCommand(),
  12.                         IssueFontCommand() and IssueStyleCommand().
  13.                         
  14.     Changes for 4.0
  15.     
  16.     29-Feb-96 : GS : MakeWindowObj() makes a document object specifier if the window
  17.                         is a document.
  18. */
  19.  
  20. #include "MSAERecording.h"
  21.  
  22. #include "MSAEUtils.h"
  23. #include "MSUtils.h"
  24. #include "MSAEWindowUtils.h"
  25. #include "MSAETextUtils.h"
  26. #include "MSAppleEvents.h"
  27. #include "MSAEGetData.h"
  28.  
  29. #include <AEPackObject.h>
  30.  
  31.  
  32.  
  33. static short   gBigBrother;
  34. static char    *gTypingBuffer;
  35. static short   gCharsInBuffer;
  36. static AEDesc  gTypingTargetObject;
  37.  
  38. const short    kTextSizeDialog = 1004;
  39.  
  40.  
  41. OSErr    InstallRecordingHandlers(void)
  42. {
  43.     OSErr    err;
  44.     
  45.     gBigBrother = 0;
  46.     gCharsInBuffer = 0;
  47.     gTypingBuffer = (char *)NewPtr(kMaxTELength);
  48.     gTypingTargetObject.dataHandle = 0;
  49.     
  50.     err = AEInstallEventHandler( kCoreEventClass, kAENotifyStartRecording, NewAEEventHandlerProc(HandleStartRecording), noRefCon, false);
  51.     err = AEInstallEventHandler( kCoreEventClass, kAENotifyStopRecording, NewAEEventHandlerProc(HandleStopRecording), noRefCon, false);
  52.  
  53.     return(err);
  54. }
  55.  
  56. pascal OSErr HandleStartRecording(const AppleEvent *theAppleEvent,
  57.                                                           AppleEvent *reply,
  58.                                                           long       handlerRefCon)        
  59. {
  60. #ifdef __MWERKS__
  61.     #pragma unused (reply,handlerRefCon)
  62. #endif
  63.  
  64.     OSErr myErr;
  65.  
  66.     gBigBrother++;
  67.  
  68.     myErr = GotRequiredParams(theAppleEvent);
  69.  
  70.     return(myErr);
  71.     
  72. } // HandleStartRecording
  73.  
  74. pascal OSErr HandleStopRecording(const AppleEvent *theAppleEvent,
  75.                                                          AppleEvent *reply,
  76.                                                              long handlerRefCon)        
  77. {
  78. #ifdef __MWERKS__
  79.     #pragma unused (theAppleEvent,reply,handlerRefCon)
  80. #endif
  81.  
  82.     gBigBrother--;
  83.     return(noErr);
  84. } // HandleStopRecording
  85.  
  86.  
  87. // Make an object specifier for a window given the WindowPtr
  88.  
  89. OSErr    MakeWindowObj(WindowPtr theWindow, AEDesc *result)
  90. {
  91.     AEDesc        nullDesc = {typeNull, NULL},
  92.                 aDesc = {typeNull, NULL};
  93.     long        anIndex;
  94.     Str255        aName;
  95.     DescType    keyForm;
  96.     OSErr        err;
  97.     
  98.     if ( ! theWindow )
  99.         return errAENoSuchObject;
  100.         
  101.     if ( IsDocumentWindow( theWindow ) )
  102.         return MakeDocumentObj( theWindow, result );
  103.     
  104.     if ( IsVisible( theWindow ) )
  105.     {
  106.         anIndex = GetWindowIndex(theWindow);
  107.         if ( ! anIndex )
  108.             return errAENoSuchObject;
  109.         
  110.         err = AECreateDesc( typeLongInteger, (Ptr)&anIndex,
  111.                                     sizeof( anIndex ), &aDesc );
  112.         if (noErr != err) goto done;
  113.         
  114.         keyForm = formAbsolutePosition;
  115.     }
  116.     else
  117.     {
  118.         GetWTitle( theWindow, aName );
  119.         
  120.         err = AECreateDesc( typeChar, (Ptr)&aName[1],
  121.                                             aName[0], &aDesc );
  122.         if (noErr != err) goto done;
  123.         
  124.         keyForm = formName;
  125.     }
  126.     
  127.     err = CreateObjSpecifier( cWindow, &nullDesc, keyForm,
  128.                                                 &aDesc, false, result );
  129.  
  130. done:
  131.     (void)AEDisposeDesc( &aDesc );
  132.     
  133.     return(err);
  134. } // MakeWindowObj
  135.  
  136. // Make an object specifier for a document given the WindowPtr
  137.  
  138. OSErr    MakeDocumentObj(WindowPtr theWindow, AEDesc *result)
  139. {
  140.     AEDesc        nullDesc = {typeNull, NULL},
  141.                 aDesc = {typeNull, NULL};
  142.     long        anIndex;
  143.     Str255        aName;
  144.     DescType    keyForm;
  145.     OSErr        err;
  146.     
  147.     if ( ! theWindow )
  148.         return errAENoSuchObject;
  149.         
  150.     if ( ! IsDocumentWindow( theWindow ) )
  151.         return errAEWrongDataType;
  152.     
  153.     if ( IsVisible( theWindow ) )
  154.     {
  155.         anIndex = GetDocumentIndex(theWindow);
  156.         if ( ! anIndex )
  157.             return errAENoSuchObject;
  158.         
  159.         err = AECreateDesc( typeLongInteger, (Ptr)&anIndex,
  160.                                     sizeof( anIndex ), &aDesc );
  161.         if (noErr != err) goto done;
  162.         
  163.         keyForm = formAbsolutePosition;
  164.     }
  165.     else
  166.     {
  167.         GetWTitle( theWindow, aName );
  168.         
  169.         err = AECreateDesc( typeChar, (Ptr)&aName[1],
  170.                                             aName[0], &aDesc );
  171.         if (noErr != err) goto done;
  172.         
  173.         keyForm = formName;
  174.     }
  175.     
  176.     err = CreateObjSpecifier( cDocument, &nullDesc, keyForm,
  177.                                                 &aDesc, false, result );
  178.  
  179. done:
  180.     (void)AEDisposeDesc( &aDesc );
  181.     
  182.     return(err);
  183. } // MakeDocumentObj
  184.  
  185.  
  186. OSErr    MakeTextObjFromToken(TextToken* theToken, AEDesc* result)
  187. {
  188.     OSErr    err;
  189.  
  190.     err = GetTextTokenObjectSpecifier(theToken, result);
  191.     
  192.     return(err);
  193. }
  194.  
  195.  
  196. OSErr    MakeSelectedTextObj(WindowPtr theWindow, TEHandle theTextEditHandle, AEDesc* result)
  197. {
  198.     return( MakeTextObj(theWindow, (**theTextEditHandle).selStart,
  199.                             (**theTextEditHandle).selEnd, result));
  200. } // MakeSelectedTextObj
  201.  
  202.  
  203. OSErr    MakeTextObj(WindowPtr theWindow, short selStart, short selEnd, AEDesc* result)
  204. {
  205.     TextToken    aToken;
  206.     OSErr        err;
  207.     
  208.     aToken.tokenWindow = theWindow;
  209.     aToken.tokenOffset = selStart + 1;
  210.     aToken.tokenLength = selEnd - selStart;
  211.  
  212.     err = MakeTextObjFromToken(&aToken, result);
  213.  
  214.     return(err);
  215. }
  216.  
  217. OSErr    SendSelectionEvent(DPtr docPtr)
  218. {
  219.     AEAddressDesc    ourAddress = {typeNull, NULL};
  220.     AppleEvent        selectEvent = {typeNull, NULL},
  221.                     ignoreReply = {typeNull, NULL};
  222.     AEDesc            textObj = {typeNull, NULL};
  223.     OSErr            err;
  224.  
  225.  
  226.     err = MakeSelfAddress(&ourAddress);
  227.     if (noErr != err) goto done;
  228.     
  229.         // Build an object to represent the current document's selection
  230.         // MakeSelectedTextObj
  231.     err = MakeSelectedTextObj(docPtr->theWindow, docPtr->theText, &textObj);
  232.     if (noErr != err) goto done;
  233.     
  234.     err = AECreateAppleEvent(kAEMiscStandards, kAESelect, &ourAddress, 0, 0, &selectEvent);    
  235.     if (noErr != err) goto done;
  236.     
  237.         // add parameter
  238.     err = AEPutParamDesc(&selectEvent, keyDirectObject, &textObj);
  239.     if (noErr != err) goto done;
  240.                     
  241.         // and now send the message
  242.     err = AESend(&selectEvent, &ignoreReply, kAENoReply, kAEHighPriority, kAEDefaultTimeout, NULL, NULL);
  243.     if (noErr != err) goto done;
  244.  
  245. done:    
  246.     (void)AEDisposeDesc(&ourAddress);
  247.     (void)AEDisposeDesc(&selectEvent);
  248.     (void)AEDisposeDesc(&ignoreReply);
  249.     (void)AEDisposeDesc(&textObj);
  250.  
  251.     return(err);
  252. }
  253.  
  254. void    DoEditCommand(DPtr theDocument, editCommandType whatCommand)
  255. {
  256.     AEAddressDesc    ourAddress = {typeNull, NULL};
  257.     AppleEvent        editCommandEvent = {typeNull, NULL},
  258.                     ignoreReply = {typeNull, NULL};
  259.     AEEventID        theEventID;
  260.     AEEventClass    theEventClass;
  261.     OSErr            err;
  262.     
  263.     err = SendSelectionEvent(theDocument);
  264.     if (noErr != err) goto done;
  265.  
  266.         // Now create and send the appropriate cut, copy, paste or clear AppleEvent
  267.     
  268.     switch (whatCommand)
  269.     {
  270.         case  editCutCommand:
  271.             theEventID = kAECut;
  272.             theEventClass = kAEMiscStandards;
  273.             break;
  274.             
  275.         case  editCopyCommand:
  276.             theEventID = kAECopy;
  277.             theEventClass = kAEMiscStandards;
  278.             break;
  279.  
  280.         case  editPasteCommand:
  281.             theEventID = kAEPaste;
  282.             theEventClass = kAEMiscStandards;
  283.             break;
  284.  
  285.         case  editClearCommand:
  286.             theEventID = kAEDelete;
  287.             theEventClass = kAECoreSuite;
  288.             break;
  289.     }
  290.     
  291.     err = MakeSelfAddress(&ourAddress);
  292.     if (noErr != err) goto done;
  293.             
  294.     err = AECreateAppleEvent(theEventClass, theEventID, &ourAddress, 0, 0, &editCommandEvent);    
  295.     if (noErr != err) goto done;
  296.             
  297.         // and now Send the message
  298.     err = AESend(&editCommandEvent, &ignoreReply, kAENoReply, kAEHighPriority, kAEDefaultTimeout, NULL, NULL);
  299.         
  300. done:
  301.     (void)AEDisposeDesc(&ourAddress);
  302.     (void)AEDisposeDesc(&editCommandEvent);
  303.     (void)AEDisposeDesc(&ignoreReply);
  304.  
  305. } // DoEditCommand
  306.  
  307. void    IssueCutCommand(DPtr theDocument)
  308. {            
  309.     DoEditCommand(theDocument, editCutCommand);
  310. } 
  311.  
  312. void    IssueCopyCommand(DPtr theDocument)
  313. {
  314.     DoEditCommand(theDocument, editCopyCommand);
  315. }
  316.  
  317. void    IssuePasteCommand(DPtr theDocument)
  318. {
  319.     DoEditCommand(theDocument, editPasteCommand);    
  320. }
  321.  
  322. void    IssueClearCommand(DPtr theDocument)
  323. {
  324.     DoEditCommand(theDocument, editClearCommand);    
  325. }
  326.  
  327. // ---------------------------------------------------------------------
  328. //    Name :         SendAESetObjProp
  329. //    Function :    Creates a property object from an object,
  330. //                a property type and its data and sends it to
  331. //                the requested address, and cleans up zapping params too
  332. // ---------------------------------------------------------------------
  333.  
  334. OSErr    SendAESetObjProp(AEDesc *theObj, DescType theProp, AEDesc *theData, AEAddressDesc *toWhom)
  335. {
  336.     AEDesc        propObjSpec;
  337.     AppleEvent    myAppleEvent;
  338.     AppleEvent    defReply;
  339.     OSErr        myErr;
  340.     OSErr        ignoreErr;
  341.     AEDesc        theProperty;
  342.         
  343.     // create an object spec that represents the property of the given object
  344.     
  345.     myErr = AECreateDesc(typeType, (Ptr)&theProp, sizeof(theProp), &theProperty);
  346.     if (myErr==noErr)
  347.         myErr = CreateObjSpecifier(cProperty, theObj, formPropertyID,
  348.                                         &theProperty, true, &propObjSpec);    
  349.         
  350.     // create event
  351.     
  352.     if (myErr==noErr)
  353.         myErr = AECreateAppleEvent(kAECoreSuite, kAESetData, toWhom, 0, 0, &myAppleEvent);
  354.         
  355.     // add prop obj spec to the event
  356.     
  357.     if (myErr==noErr)
  358.         myErr = AEPutParamDesc(&myAppleEvent, keyDirectObject, &propObjSpec);
  359.     
  360.     // add prop data to the event
  361.     
  362.     if (myErr==noErr)
  363.         myErr = AEPutParamDesc(&myAppleEvent,keyAEData, theData);
  364.     
  365.     // send event
  366.     
  367.     if (myErr==noErr)
  368.         myErr = AESend(&myAppleEvent, &defReply, kAENoReply+kAEAlwaysInteract,
  369.                                     kAENormalPriority, kAEDefaultTimeout, nil, nil);
  370.     
  371.     if (myAppleEvent.dataHandle)
  372.         ignoreErr = AEDisposeDesc(&myAppleEvent);
  373.         
  374.     if (&propObjSpec.dataHandle)
  375.       ignoreErr = AEDisposeDesc(&propObjSpec);
  376.     
  377.     if (theData->dataHandle)
  378.         ignoreErr = AEDisposeDesc(theData);
  379.     
  380.     if (toWhom->dataHandle)
  381.         ignoreErr = AEDisposeDesc(toWhom);
  382.     
  383.     return(myErr);
  384. } // SendAESetObjProp
  385.  
  386.  
  387. void    IssueFontCommand(DPtr theDocument, short theItem)
  388. {
  389.     Str255            name;
  390.     AEDesc            strDesc;
  391.     AEAddressDesc    theAddress;
  392.     AEDesc            selTextObj = {typeNull, NULL};
  393.     OSErr            err;
  394.         
  395.     err = MakeSelfAddress(&theAddress);
  396.     
  397.     err = MakeSelectedTextObj(theDocument->theWindow, theDocument->theText, &selTextObj);
  398.     
  399.     GetItem(myMenus[fontM], theItem, name);
  400.     
  401.     if (err==noErr)
  402.         err  = AECreateDesc(typeChar, (Ptr)&name[1], name[0], &strDesc);
  403.     
  404.     if (err==noErr)
  405.         err  = SendAESetObjProp(&selTextObj, pFont, &strDesc, &theAddress);
  406.         
  407.     (void)AEDisposeDesc(&selTextObj);                                            
  408. }
  409.  
  410. // Window property routines
  411.  
  412. void    IssueZoomCommand(WindowPtr whichWindow, short whichPart)
  413. {
  414.     Boolean       zoomBool;
  415.     AEDesc        zoomDesc;
  416.     AEAddressDesc selfAddr;
  417.     AEDesc        frontWinObj;
  418.     OSErr         err;
  419.  
  420.     err = MakeSelfAddress(&selfAddr);
  421.     
  422.     err = MakeWindowObj(whichWindow, &frontWinObj);
  423.     
  424.     zoomBool = (whichPart==inZoomOut);
  425.  
  426.     err = AECreateDesc(typeBoolean, (Ptr)&zoomBool, sizeof(zoomBool), &zoomDesc);
  427.                                             
  428.     err = SendAESetObjProp(&frontWinObj, pIsZoomed, &zoomDesc, &selfAddr);                                                            
  429. } // IssueZoomCommand
  430.  
  431. void    IssueCloseCommand(WindowPtr whichWindow)
  432. {
  433.     AEAddressDesc  selfAddr;
  434.     AEDesc         frontWinObj;
  435.     OSErr          err;
  436.     OSErr          ignoreErr;
  437.     AppleEvent     closeCommandEvent;
  438.     AppleEvent     ignoreReply;
  439.  
  440.     frontWinObj.dataHandle = nil;
  441.     
  442.     err = MakeSelfAddress(&selfAddr);
  443.     
  444.         // If it's a document this will be a document object sprcifier
  445.     err = MakeWindowObj(whichWindow, &frontWinObj);
  446.                                                         
  447.     err = AECreateAppleEvent( kAECoreSuite, kAEClose, &selfAddr,
  448.                 kAutoGenerateReturnID, kAnyTransactionID, &closeCommandEvent) ;                
  449.     
  450.     // add parameter - the window to close    
  451.     if (err==noErr) 
  452.         err = AEPutParamDesc(&closeCommandEvent, keyDirectObject, &frontWinObj);
  453.         
  454.     if (err==noErr) 
  455.         err = AESend( &closeCommandEvent, &ignoreReply, kAENoReply + kAEAlwaysInteract,
  456.                                          kAENormalPriority, kAEDefaultTimeout, NULL, NULL );
  457.     
  458.     if (closeCommandEvent.dataHandle) 
  459.         ignoreErr = AEDisposeDesc(&closeCommandEvent);
  460.     
  461.     if (selfAddr.dataHandle) 
  462.         ignoreErr = AEDisposeDesc(&selfAddr);
  463.         
  464.     if (frontWinObj.dataHandle) 
  465.         ignoreErr = AEDisposeDesc(&frontWinObj);
  466.         
  467. } // IssueCloseCommand
  468.  
  469. void    IssueSizeWindow(WindowPtr whichWindow, short newHSize, short newVSize)
  470. {
  471.     Rect          sizeRect;
  472.     Rect          contentRect;
  473.     short         edgeSize;
  474.     AEDesc        sizeDesc;
  475.     AEAddressDesc selfAddr;
  476.     AEDesc        frontWinObj;
  477.     OSErr         err;
  478.  
  479.     sizeRect    = (**(((WindowPeek)whichWindow)->strucRgn)).rgnBBox;
  480.     contentRect = (**(((WindowPeek)whichWindow)->contRgn)).rgnBBox;
  481.     
  482.     edgeSize = sizeRect.right-sizeRect.left-(contentRect.right-contentRect.left);
  483.     sizeRect.right = sizeRect.left+newHSize+edgeSize;
  484.     
  485.     edgeSize = sizeRect.bottom-sizeRect.top-(contentRect.bottom-contentRect.top);
  486.     sizeRect.bottom = sizeRect.top+newVSize+edgeSize;
  487.     
  488.     err = MakeSelfAddress(&selfAddr);
  489.     
  490.     err = MakeWindowObj(whichWindow, &frontWinObj);
  491.     
  492.     if (err==noErr)
  493.         err = AECreateDesc(typeQDRectangle, (Ptr)&sizeRect, sizeof(sizeRect), &sizeDesc);
  494.     
  495.     if (err==noErr)
  496.         err  = SendAESetObjProp(&frontWinObj, pBounds, &sizeDesc, &selfAddr);                                                            
  497. } // IssueSizeWindow
  498.  
  499. void    IssueMoveWindow(WindowPtr whichWindow, Rect* sizeRect)
  500. {
  501.     AEDesc            sizeDesc = { typeNull, NULL },
  502.                     frontWinObj = { typeNull, NULL };
  503.     AEAddressDesc    selfAddr = { typeNull, NULL };
  504.     OSErr            err;
  505.     
  506.     err = MakeSelfAddress(&selfAddr);
  507.     if ( noErr != err ) goto done;
  508.     
  509.     err = MakeWindowObj(whichWindow, &frontWinObj);
  510.     if ( noErr != err ) goto done;
  511.         
  512.     err = AECreateDesc( typeQDRectangle, (Ptr)sizeRect, sizeof( *sizeRect ), &sizeDesc );
  513.     if ( noErr != err ) goto done;
  514.     
  515.     err = SendAESetObjProp(&frontWinObj, pBounds, &sizeDesc, &selfAddr);
  516.         
  517. done:
  518.     (void)AEDisposeDesc( &selfAddr );    // These three are disposed of in SendAESetObjProp()
  519.     (void)AEDisposeDesc( &frontWinObj );//  if it makes it there.
  520.     (void)AEDisposeDesc( &sizeDesc );
  521. } // IssueMoveWindow
  522.  
  523. void    IssuePageSetupWindow(WindowPtr whichWindow, TPrint thePageSetup)
  524. {
  525.     AEDesc        sizeDesc;
  526.     AEAddressDesc selfAddr;
  527.     AEDesc        frontWinObj;
  528.     OSErr         err;
  529.  
  530.     err = MakeSelfAddress(&selfAddr);
  531.     
  532.     err = MakeWindowObj(whichWindow, &frontWinObj);
  533.     
  534.     if (err==noErr)
  535.         err = AECreateDesc(typeTPrint, (Ptr)&thePageSetup, sizeof(thePageSetup), &sizeDesc);
  536.                                              
  537.     if (err==noErr)
  538.         err = SendAESetObjProp(&frontWinObj, pPageSetup, &sizeDesc, &selfAddr);                                                            
  539.                                                  
  540. } //IssuePageSetupWindow
  541.  
  542.  
  543. void IssueGXPageSetupWindow(WindowPtr whichWindow, gxJob thGXJob)
  544. {
  545.     AEDesc        sizeDesc;
  546.     AEAddressDesc selfAddr;
  547.     AEDesc        frontWinObj;
  548.     OSErr         err;
  549.     Handle        thePGXHandle;
  550.  
  551.     // Flatten the gxJob to a handle
  552.  
  553.     thePGXHandle = NewHandle(0);
  554.     GXFlattenJobToHdl(thGXJob, thePGXHandle);
  555.  
  556.     err = MakeSelfAddress(&selfAddr);
  557.     
  558.     err = MakeWindowObj(whichWindow, &frontWinObj);
  559.     
  560.     if (err==noErr)
  561.         err = AECreateDesc(typeTPrint, (Ptr)*thePGXHandle,
  562.                                 GetHandleSize (thePGXHandle), &sizeDesc);
  563.                                              
  564.     if (err==noErr)
  565.         err = SendAESetObjProp(&frontWinObj, pGXPageSetup, &sizeDesc, &selfAddr);                                                            
  566.  
  567.     DisposeHandle( thePGXHandle );                                             
  568. } // IssueGXPageSetupWindow
  569.  
  570.  
  571. void IssuePrintWindow(WindowPtr whichWindow, Boolean useDialog)
  572. {
  573.     AEAddressDesc selfAddr = { typeNull, NULL };
  574.     AEDesc        frontWinObj = { typeNull, NULL };
  575.     OSErr         err;
  576.     AppleEvent    printCommandEvent = { typeNull, NULL };
  577.     AppleEvent    ignoreReply;
  578.     AESendMode    sendModeFlags;
  579.  
  580.     err = MakeSelfAddress(&selfAddr);
  581.     
  582.     err = MakeWindowObj(whichWindow, &frontWinObj);
  583.                                                         
  584.     err = AECreateAppleEvent(kCoreEventClass, kAEPrintDocuments, &selfAddr, 0, 0, &printCommandEvent) ;                
  585.  
  586.     //    add parameter - the window to print
  587.  
  588.     if (err==noErr) 
  589.         err = AEPutParamDesc(&printCommandEvent, keyDirectObject, &frontWinObj);
  590.         
  591.     if (err==noErr)
  592.     {
  593.         sendModeFlags = kAENoReply;
  594.         if (useDialog)
  595.             sendModeFlags = sendModeFlags + kAEAlwaysInteract;
  596.         else
  597.             sendModeFlags = sendModeFlags + kAENeverInteract;
  598.         err = AESend(&printCommandEvent,&ignoreReply,sendModeFlags,kAEHighPriority,10000,nil, nil);
  599.     }
  600.     
  601.     (void)AEDisposeDesc(&printCommandEvent);
  602.     (void)AEDisposeDesc(&frontWinObj);
  603.     (void)AEDisposeDesc(&selfAddr);
  604. } // IssuePrintWindow
  605.  
  606. OSErr    IssueAEOpenDoc(FSSpec myFSSpec)
  607. // send OpenDocs AppleEvent to myself, with a one-element list
  608. // containing the given file spec
  609. //
  610. // NOTES : the core AEOpenDocs event is defined as taking a list of
  611. //        aliases (not file specs) as its direct parameter.  However,
  612. //        we can send the file spec instead and depend on AppleEvents'
  613. //        automatic coercion.  In fact, we don't really even have to put 
  614. //        in a list; AppleEvents will coerce a descriptor into a 1-element
  615. //        list if called for.  In this routine, though, we'll make the
  616. //        list for demonstration purposes.
  617. {
  618.     AppleEvent    myAppleEvent = { typeNull, NULL };
  619.     AppleEvent    defReply = { typeNull, NULL };
  620.     AEDescList    docList = { typeNull, NULL };
  621.     AEAddressDesc selfAddr = { typeNull, NULL };
  622.     OSErr         myErr;
  623.         
  624.     //    Create empty list and add one file spec
  625.  
  626.     myErr = AECreateList(nil,0,false, &docList);
  627.     
  628.     if (myErr==noErr) 
  629.         myErr = AEPutPtr(&docList,1,typeFSS,(Ptr)&myFSSpec,sizeof(myFSSpec));
  630.         
  631.     //    Create a self address to send it to
  632.  
  633.     if (myErr==noErr) 
  634.         myErr = MakeSelfAddress(&selfAddr);
  635.         
  636.     if (myErr==noErr) 
  637.         myErr = AECreateAppleEvent(kCoreEventClass, kAEOpenDocuments, &selfAddr,
  638.                                 kAutoGenerateReturnID,  kAnyTransactionID, &myAppleEvent);
  639.  
  640.     //    Put Params into our event and send it
  641.  
  642.     if (myErr == noErr) 
  643.         myErr = AEPutParamDesc(&myAppleEvent, keyDirectObject, &docList);
  644.  
  645.     myErr = AESend(&myAppleEvent, &defReply, kAENoReply+kAEAlwaysInteract, kAENormalPriority,
  646.                                                                      kAEDefaultTimeout, nil, nil);
  647.         
  648.     (void)AEDisposeDesc(&selfAddr);
  649.     (void)AEDisposeDesc(&myAppleEvent);
  650.     (void)AEDisposeDesc(&docList);
  651.         
  652.     return(myErr);
  653.     
  654. } // IssueAEOpenDoc
  655.  
  656. void    IssueAENewWindow(void)
  657. // send the New Element event to myself with a null container
  658. {
  659.     AppleEvent    myAppleEvent = { typeNull, NULL };
  660.     AppleEvent    defReply = { typeNull, NULL };
  661.     AEAddressDesc selfAddr = { typeNull, NULL };
  662.     OSErr         myErr;
  663.     DescType      elemClass;
  664.     
  665.     //    Create the address of us
  666.     
  667.     myErr = MakeSelfAddress(&selfAddr);
  668.     
  669.     //    create event 
  670.     
  671.     myErr = AECreateAppleEvent(kAECoreSuite, kAECreateElement, &selfAddr,
  672.                                     kAutoGenerateReturnID, kAnyTransactionID, &myAppleEvent);
  673.     
  674.     //    attach desired class of new element
  675.     
  676.     elemClass = cDocument;
  677.     
  678.     if (myErr == noErr) 
  679.         myErr = AEPutParamPtr(&myAppleEvent, keyAEObjectClass, typeType,
  680.                                         (Ptr)&elemClass, sizeof(elemClass));
  681.         
  682.     //    send the event 
  683.     
  684.     if (myErr == noErr) 
  685.         myErr = AESend(&myAppleEvent, &defReply, kAENoReply+kAENeverInteract,
  686.                             kAENormalPriority, kAEDefaultTimeout, nil, nil);
  687.     //    Clean up - reply never created so don't throw away
  688.  
  689.     (void)AEDisposeDesc(&selfAddr);
  690.     (void)AEDisposeDesc(&myAppleEvent);
  691.                 
  692. } // IssueAENewWindow
  693.  
  694. OSErr    IssueSaveCommand( WindowPtr theWindow, FSSpecPtr theSpec )
  695. // send an AppleEvent Save Event to myself
  696. {
  697.     AEDesc        windowObj = { typeNull, NULL };
  698.     AppleEvent    myAppleEvent = { typeNull, NULL };
  699.     AppleEvent    defReply = { typeNull, NULL };
  700.     AEAddressDesc selfAddr = { typeNull, NULL };
  701.     OSErr         anErr;
  702.     
  703.     anErr = MakeWindowObj(theWindow, &windowObj);
  704.     if ( noErr != anErr ) goto done;
  705.     
  706.     anErr = MakeSelfAddress(&selfAddr);
  707.     if ( noErr != anErr ) goto done;
  708.     
  709.         //    Build event
  710.  
  711.     anErr = AECreateAppleEvent(kAECoreSuite, kAESave, &selfAddr,
  712.                             kAutoGenerateReturnID, kAnyTransactionID, &myAppleEvent);
  713.     if ( noErr != anErr ) goto done;
  714.   
  715.         //    say which window
  716.  
  717.     anErr = AEPutParamDesc(&myAppleEvent, keyDirectObject, &windowObj);
  718.     if ( noErr != anErr ) goto done;
  719.  
  720.         //    add optional file param if we need to
  721.  
  722.     if ( theSpec ) 
  723.     {
  724.         anErr = AEPutParamPtr( &myAppleEvent, keyAEFile, typeFSS,
  725.                                                     (Ptr)theSpec, sizeof( FSSpec ) );
  726.         if ( noErr != anErr ) goto done;
  727.     }
  728.     
  729.         // send the event
  730.  
  731.     anErr = AESend( &myAppleEvent, &defReply, kAENoReply + kAENeverInteract,
  732.                                     kAENormalPriority, kAEDefaultTimeout, NULL, NULL );
  733.  
  734. done:      
  735.     (void)AEDisposeDesc(&selfAddr);
  736.     (void)AEDisposeDesc(&windowObj);
  737.     (void)AEDisposeDesc(&myAppleEvent);
  738.         
  739.     return anErr;
  740. }    // IssueSaveCommand
  741.  
  742. OSErr    IssueRevertCommand(WindowPtr theWindow)
  743.     // send an AppleEvent Revert Event to myself
  744. {
  745.     AEDesc        windowObj = { typeNull, NULL };
  746.     AppleEvent    myAppleEvent = { typeNull, NULL };
  747.     AppleEvent    defReply = { typeNull, NULL };
  748.     OSErr         myErr;
  749.     AEAddressDesc selfAddr = { typeNull, NULL };
  750.     
  751.     myErr = MakeWindowObj(theWindow, &windowObj);
  752.                 
  753.     if (myErr==noErr) 
  754.         myErr = MakeSelfAddress(&selfAddr);
  755.         
  756.     // Build event
  757.     
  758.     if (myErr == noErr) 
  759.         myErr  = AECreateAppleEvent(kAEMiscStandards, kAERevert, &selfAddr,
  760.                                     kAutoGenerateReturnID, kAnyTransactionID, &myAppleEvent);
  761.     // say which window
  762.     
  763.     if (myErr == noErr) 
  764.         myErr = AEPutParamDesc(&myAppleEvent, keyDirectObject, &windowObj);
  765.     //    send the event
  766.  
  767.     if (myErr==noErr) 
  768.         myErr  = AESend(&myAppleEvent, &defReply, kAENoReply+kAENeverInteract,
  769.                                 kAENormalPriority, kAEDefaultTimeout, nil, nil);
  770.         
  771.     (void)AEDisposeDesc(&windowObj);
  772.     (void)AEDisposeDesc(&myAppleEvent);
  773.     (void)AEDisposeDesc(&selfAddr);
  774.         
  775.     return(myErr);
  776. } // IssueRevertCommand
  777.  
  778. // ----------------------------------------------------
  779. //    Name :         IssueQuitCommand
  780. //    Purpose :    Sends self a Quit AppleEvent
  781. // ----------------------------------------------------
  782. OSErr    IssueQuitCommand(void)
  783. {
  784.     AppleEvent    myAppleEvent = { typeNull, NULL };
  785.     AppleEvent    defReply = { typeNull, NULL };
  786.     OSErr         myErr;
  787.     AEAddressDesc selfAddr = { typeNull, NULL };
  788.     DescType      mySaveOpt;
  789.                         
  790.     myErr = MakeSelfAddress(&selfAddr);
  791.         
  792.     //    Build event
  793.     
  794.     if (myErr == noErr) 
  795.         myErr  = AECreateAppleEvent(kCoreEventClass, kAEQuitApplication, &selfAddr,
  796.                                         kAutoGenerateReturnID, kAnyTransactionID, &myAppleEvent);
  797.     //    say which save option
  798.     
  799.     mySaveOpt = kAEAsk;
  800.     
  801.     if (myErr == noErr) 
  802.         myErr = AEPutParamPtr(&myAppleEvent, keyAESaveOptions, typeEnumerated,
  803.                                                 (Ptr)&mySaveOpt, sizeof(mySaveOpt));
  804.     //    send the event
  805.  
  806.     if (myErr==noErr) 
  807.         myErr  = AESend(&myAppleEvent, &defReply, kAENoReply+kAEAlwaysInteract,
  808.                                     kAENormalPriority, kAEDefaultTimeout, nil, nil);
  809.                     
  810.     (void)AEDisposeDesc(&myAppleEvent);
  811.     (void)AEDisposeDesc(&selfAddr);
  812.         
  813.     return(myErr);
  814. } // IssueQuitCommand
  815.  
  816. #define kOK 1
  817. #define kCancel 2
  818. #define kOtherSize 4
  819. #define kOutlineItem 5
  820.  
  821. Boolean    PoseSizeDialog(long *whatSize)
  822. {
  823.     GrafPtr   savedPort;
  824.     DialogPtr aDialog;
  825.     Str255    aString;
  826.     short     itemHit;
  827.  
  828.     GetPort(&savedPort);
  829.     aDialog = GetNewDialog( kTextSizeDialog, NULL, (WindowPtr)-1 );
  830. //    ShowWindow(aDialog);
  831. //    SetPort(aDialog);
  832.     
  833.     AdornDefaultButton( aDialog, kOutlineItem );
  834.      
  835.         //set the edittext button to contain the right size
  836.     NumToString( *whatSize, aString );
  837.     SetText( aDialog, kOtherSize, aString );
  838.  
  839.     do
  840.     {
  841.         ModalDialog( nil, &itemHit );
  842.     } while ( ( itemHit != kOK ) && ( itemHit != kCancel ) );
  843.     
  844.     if ( itemHit == kOK ) 
  845.         RetrieveText( aDialog, kOtherSize, aString );
  846.  
  847.     DisposDialog( aDialog );
  848.     SetPort( savedPort );
  849.     
  850.     if ( itemHit == kOK ) 
  851.     {
  852.         // set the new size of the text
  853.         StringToNum( aString, whatSize );
  854.         if ( ( *whatSize < 1 ) || ( *whatSize > 2000 ) ) 
  855.             *whatSize = 12;
  856.     }
  857.  
  858.     return( itemHit == kOK );
  859. }
  860.  
  861. void    IssueSizeCommand(DPtr theDocument,short theItem)
  862. {
  863.     Str255        name;
  864.     AEDesc        sizeDesc = { typeNull, NULL };
  865.     AEAddressDesc theAddress = { typeNull, NULL };
  866.     OSErr         err;
  867.     AEDesc        selTextObj = { typeNull, NULL };
  868.     
  869.         // Vars to do with menu processing
  870.     short     lastSize;
  871.     short     upItem;
  872.     short     downItem;
  873.     short     otherItem;
  874.     long      theSize;
  875.     TextStyle theStyle;
  876.     short     lineHeight;
  877.     short     fontAscent;
  878.         
  879.     err = MakeSelfAddress(&theAddress);
  880.     
  881.     err = MakeSelectedTextObj(theDocument->theWindow, theDocument->theText, &selTextObj);        
  882.  
  883.         // check if the item is on the Size menu
  884.         // remembering that we can add and delete items from it
  885.     lastSize  = CountMItems(myMenus[sizeM]) - 5;
  886.     upItem    = lastSize + 2;
  887.     downItem  = upItem + 1;
  888.     otherItem = downItem + 2;
  889.   
  890.     TEGetStyle((**(theDocument->theText)).selStart, &theStyle, &lineHeight,
  891.                                             &fontAscent, theDocument->theText);
  892.     
  893.     GetItem(myMenus[sizeM], theItem, name);
  894.  
  895.     if (theItem <= lastSize)
  896.     {
  897.         GetItem(myMenus[sizeM], theItem, name);
  898.         StringToNum(name, &theSize);
  899.     }
  900.     else if (theItem == upItem)  
  901.         theSize = theStyle.tsSize + 1;
  902.     else if (theItem == downItem)
  903.         theSize = theStyle.tsSize - 1;
  904.     else if (theItem == otherItem) 
  905.     {
  906.         theSize = theStyle.tsSize;
  907.         if (!PoseSizeDialog(&theSize))
  908.             return;
  909.     }
  910.  
  911.     if (err==noErr)
  912.         err = CreateOffsetDescriptor(theSize, &sizeDesc);
  913.     
  914.     if (err==noErr)
  915.         err = SendAESetObjProp(&selTextObj, pPointSize, &sizeDesc, &theAddress);
  916.         
  917.     (void)AEDisposeDesc(&selTextObj);                                            
  918. } // IssueSizeCommand
  919.  
  920. void    IssueStyleCommand(DPtr theDocument, short theItem)
  921. {
  922.     Style         theFace;
  923.     OSErr         err;
  924.     AEDesc        result = { typeNull, NULL };
  925.     AEAddressDesc selfAddr = { typeNull, NULL };
  926.     AEDesc        selTextObj = { typeNull, NULL };
  927.     TextStyle     theStyle;
  928.     short         lineHeight;
  929.     short         fontAscent;
  930.         
  931.     TEGetStyle((**(theDocument->theText)).selStart, &theStyle,
  932.                     &lineHeight, &fontAscent, theDocument->theText);
  933.     
  934.     theFace = 0;
  935.  
  936.     switch (theItem)
  937.     {
  938.         case cPlain:
  939.             theFace = 0;
  940.             break;
  941.         case cBold:
  942.             theFace = bold;
  943.             break;
  944.         case cItalic:
  945.             theFace = italic;
  946.             break;
  947.         case cUnderline:
  948.             theFace = underline;
  949.             break;
  950.         case cOutline:
  951.             theFace = outline;
  952.             break;
  953.         case cShadow:
  954.             theFace = shadow;
  955.             break;
  956.         case cCondense:
  957.             theFace = condense;
  958.             break;
  959.         case cExtend:
  960.             theFace = extend;
  961.             break;
  962.     } // of switch
  963.  
  964.     if (theFace==0)
  965.         err = BuildTypeTextStylesDesc(0, bold+italic+underline+outline+shadow+condense+extend, &result);
  966.     else if (theFace & theStyle.tsFace)
  967.         err = BuildTypeTextStylesDesc(0, theFace, &result);
  968.     else
  969.         err = BuildTypeTextStylesDesc(theFace, 0, &result);
  970.     
  971.     err = MakeSelfAddress(&selfAddr);
  972.     
  973.     if (err==noErr)
  974.         err = MakeSelectedTextObj(theDocument->theWindow, theDocument->theText, &selTextObj);
  975.     
  976.     if (err==noErr)
  977.         err = SendAESetObjProp(&selTextObj, pTextStyles, &result, &selfAddr);
  978.         
  979.     (void)AEDisposeDesc(&selTextObj);                                            
  980. } // IssueStyleCommand
  981.  
  982.  
  983. OSErr    IssueSetDataObjToBufferContents(const AEDesc* theObj)
  984. { 
  985.     OSErr            myErr;
  986.     AEAddressDesc    theAddress = { typeNull, NULL };
  987.     AppleEvent        myAppleEvent = { typeNull, NULL };
  988.     AppleEvent        defReply = { typeNull, NULL };
  989.  
  990.     myErr = MakeSelfAddress(&theAddress);
  991.     
  992.     // create event
  993.     
  994.     if (myErr==noErr)
  995.         myErr = AECreateAppleEvent(kAECoreSuite, kAESetData, &theAddress,
  996.                                                         0, 0, &myAppleEvent);
  997.         
  998.     // add prop obj spec to the event
  999.     
  1000.     if (myErr==noErr)
  1001.         myErr = AEPutParamDesc(&myAppleEvent, keyDirectObject, theObj);
  1002.     
  1003.     // add prop data to the event
  1004.     
  1005.     if (myErr==noErr)
  1006.         myErr = AEPutParamPtr(&myAppleEvent, keyAEData, typeChar,
  1007.                                     (Ptr)gTypingBuffer, gCharsInBuffer);
  1008.                                                     
  1009.     // send event
  1010.     
  1011.     if (myErr==noErr)
  1012.      if (gRecordingImplemented)
  1013.          myErr = AESend(&myAppleEvent, &defReply, kAENoReply+kAEDontExecute,
  1014.                                      kAENormalPriority, kAEDefaultTimeout, nil, nil);
  1015.  
  1016.     (void)AEDisposeDesc(&theAddress);
  1017.     (void)AEDisposeDesc(&myAppleEvent);
  1018.         
  1019.     return(myErr);
  1020. }
  1021.  
  1022. void    AddKeyToTypingBuffer(DPtr theDocument, char theKey)
  1023. {
  1024.     OSErr myErr;
  1025.     OSErr ignoreErr;
  1026.     
  1027.     if (theKey==BS || theKey==FS || theKey==GS || theKey==RS || theKey==US)
  1028.     {
  1029.         FlushAndRecordTypingBuffer();
  1030.         if (theKey==BS)
  1031.         {
  1032.             if ((**theDocument->theText).selStart!=(**theDocument->theText).selEnd)
  1033.             {
  1034.                 myErr = MakeTextObj(theDocument->theWindow,
  1035.                                     (**theDocument->theText).selStart,
  1036.                                     (**theDocument->theText).selEnd,
  1037.                                     &gTypingTargetObject);
  1038.             }
  1039.             else
  1040.             {
  1041.                 myErr = MakeTextObj(theDocument->theWindow,
  1042.                                     (**theDocument->theText).selStart-1,
  1043.                                     (**theDocument->theText).selStart,
  1044.                                     &gTypingTargetObject);
  1045.             }
  1046.                 
  1047.             myErr = IssueSetDataObjToBufferContents(&gTypingTargetObject);
  1048.             
  1049.             ignoreErr = AEDisposeDesc(&gTypingTargetObject);
  1050.             
  1051.             gTypingTargetObject.dataHandle = nil;
  1052.         }
  1053.     }
  1054.     else
  1055.     {
  1056.         if (gCharsInBuffer==0)
  1057.             myErr = MakeSelectedTextObj(theDocument->theWindow, theDocument->theText,
  1058.                                                                     &gTypingTargetObject);
  1059.  
  1060.         gTypingBuffer[gCharsInBuffer++] = theKey;
  1061.     }
  1062. }
  1063.  
  1064. void    FlushAndRecordTypingBuffer(void)
  1065. { 
  1066.     OSErr  myErr;
  1067.     OSErr  ignoreErr;
  1068.  
  1069.     if (gCharsInBuffer != 0)
  1070.     {
  1071.         myErr = IssueSetDataObjToBufferContents(&gTypingTargetObject);
  1072.         
  1073.         if (gTypingTargetObject.dataHandle)
  1074.             ignoreErr = AEDisposeDesc(&gTypingTargetObject);
  1075.     }
  1076.         
  1077.     gCharsInBuffer = 0;
  1078.     gTypingTargetObject.dataHandle = 0;
  1079. }
  1080.  
  1081.     
  1082. void    StyleTokConst(short theStyleItem, DescType *thekConst)
  1083. {
  1084.     switch (theStyleItem)
  1085.     {
  1086.         case bold:
  1087.             *thekConst = kAEBold;
  1088.             break;
  1089.             
  1090.         case italic:
  1091.             *thekConst = kAEItalic;
  1092.             break;
  1093.             
  1094.         case underline:
  1095.             *thekConst = kAEUnderline;
  1096.             break;
  1097.             
  1098.         case outline:
  1099.             *thekConst = kAEOutline;
  1100.             break;
  1101.             
  1102.         case shadow:
  1103.             *thekConst = kAEShadow;
  1104.             break;
  1105.             
  1106.         case condense:
  1107.             *thekConst = kAECondensed;
  1108.             break;
  1109.             
  1110.         case extend:
  1111.             *thekConst = kAEExpanded;
  1112.             break;
  1113.     }
  1114. } // StyleTokConst
  1115.  
  1116. OSErr    BuildTypeTextStylesDesc(Style onStyles, Style offStyles, AEDesc *resultDesc)
  1117. {
  1118.  
  1119.     OSErr     myErr;
  1120.     short     myStyleItem;
  1121.     DescType  styleConst;
  1122.     AEDesc    onStylesDesc = { typeNull, NULL };
  1123.     AEDesc    offStylesDesc = { typeNull, NULL };
  1124.     AEDesc    dataDesc = { typeNull, NULL };
  1125.  
  1126.     myErr = AECreateList(nil, 0, true,  &dataDesc);
  1127.     
  1128.     myErr = AECreateList(nil, 0, false, &onStylesDesc);
  1129.     myErr = AECreateList(nil, 0, false, &offStylesDesc);
  1130.     
  1131.     for (myStyleItem = bold; myStyleItem<=extend; myStyleItem = myStyleItem <<1)
  1132.         if (myErr==noErr)
  1133.         {
  1134.             StyleTokConst(myStyleItem, &styleConst);
  1135.             if (myStyleItem & onStyles)
  1136.                 myErr = AEPutPtr(&onStylesDesc,
  1137.                                     0,                // add to end of list
  1138.                                     typeEnumerated, // text for style name
  1139.                                     (Ptr)&styleConst,
  1140.                                     sizeof(styleConst));
  1141.             
  1142.             if (myStyleItem & offStyles)
  1143.                 myErr = AEPutPtr(&offStylesDesc,
  1144.                                     0,                // add to end of list
  1145.                                     typeEnumerated, // text for style name
  1146.                                     (Ptr)&styleConst,
  1147.                                     sizeof(styleConst));
  1148.         }
  1149.     
  1150.     if (myErr==noErr)
  1151.         myErr = AEPutKeyDesc(&dataDesc, keyAEOnStyles,  &onStylesDesc);
  1152.     
  1153.     if (myErr==noErr)
  1154.         myErr = AEPutKeyDesc(&dataDesc, keyAEOffStyles, &offStylesDesc);
  1155.     
  1156.     if (myErr==noErr)
  1157.         myErr = AECoerceDesc(&dataDesc, typeTextStyles, resultDesc);
  1158.         
  1159.     (void)AEDisposeDesc(&onStylesDesc);
  1160.     (void)AEDisposeDesc(&offStylesDesc);
  1161.     (void)AEDisposeDesc(&dataDesc);
  1162.  
  1163.     return(myErr);
  1164. }
  1165.  
  1166. OSErr    BuildTextStylesDesc(Style theStyle, AEDesc *resultDesc)
  1167. {
  1168.     short     myStyleItem;
  1169.     Style     onStyles;
  1170.     Style     offStyles;
  1171.             
  1172.     onStyles  = 0;
  1173.     offStyles = 0;
  1174.     
  1175.     for (myStyleItem = bold; myStyleItem<=extend; myStyleItem = myStyleItem <<1)
  1176.     {
  1177.         if (myStyleItem & theStyle)
  1178.             onStyles  = onStyles  + myStyleItem;
  1179.         else
  1180.             offStyles = offStyles + myStyleItem;
  1181.     }
  1182.  
  1183.     return(BuildTypeTextStylesDesc(onStyles, offStyles, resultDesc));
  1184.     
  1185. } // BuildTextStylesDesc
  1186.         
  1187. OSErr    BuildStyledTextDesc(TEHandle theHTE, short start, short howLong, AEDesc *resultDesc)
  1188. {
  1189.     AEDesc       listDesc = { typeNull, NULL };
  1190.     short        oldSelStart;
  1191.     short        oldSelEnd;
  1192.     StScrpHandle myStScrpHandle;
  1193.     OSErr        myErr;
  1194.     
  1195.     oldSelStart = (**theHTE).selStart;
  1196.     oldSelEnd   = (**theHTE).selEnd;
  1197.     
  1198.     TESetSelect(start-1, start+howLong-2, theHTE);
  1199.     
  1200.     myErr = AECreateList(nil, 0, true,  &listDesc);
  1201.     
  1202.     HLock((Handle)(**theHTE).hText);
  1203.                                                      
  1204.     if (myErr == noErr)
  1205.         myErr = AEPutKeyPtr(&listDesc, keyAEText, typeChar,
  1206.                             (Ptr)&(*(**theHTE).hText)[start-1], howLong);
  1207.                                                 
  1208.     HUnlock((Handle)(**theHTE).hText);
  1209.     
  1210.     myStScrpHandle = GetStylScrap(theHTE);
  1211.     
  1212.     if (myStScrpHandle)
  1213.     {
  1214.         HLock((Handle)myStScrpHandle);
  1215.         
  1216.         if (myErr==noErr)
  1217.             myErr = AEPutKeyPtr(&listDesc, keyAEStyles, typeScrapStyles,
  1218.                                     (Ptr)*myStScrpHandle, GetHandleSize((Handle)myStScrpHandle));
  1219.             
  1220.         HUnlock((Handle)myStScrpHandle);
  1221.  
  1222.         DisposeHandle((Handle)myStScrpHandle);
  1223.     }    
  1224.     else
  1225.         myErr = AEPutKeyPtr(&listDesc, keyAEStyles, typeScrapStyles, (Ptr)nil, 0);
  1226.     
  1227.     if (myErr==noErr)
  1228.         myErr = AECoerceDesc(&listDesc, typeStyledText, resultDesc); // should be typeIntlText
  1229.     
  1230.     (void)AEDisposeDesc(&listDesc);
  1231.     
  1232.     TESetSelect(oldSelStart, oldSelEnd, theHTE);
  1233.     
  1234.     return(myErr);
  1235. }
  1236.